home *** CD-ROM | disk | FTP | other *** search
/ BMUG PD-ROM BV3 / BMUG PD-ROM Version BV3 (CDRM1097900).iso / HyperCard / XCMDs⁄XFCN / Get⁄SetTYPE 2.1 / Get_SetTYPE 2.1 / cards.xml < prev    next >
Text File  |  1991-09-01  |  4KB  |  116 lines
  1. card_2839.xml
  2. <?xml version="1.0" encoding="utf-8" ?>
  3. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  4. <card>
  5.     <id>2839</id>
  6.     <filler1>0</filler1>
  7.     <cantDelete> <false /> </cantDelete>
  8.     <showPict> <true /> </showPict>
  9.     <dontSearch> <false /> </dontSearch>
  10.     <owner>2788</owner>
  11.     <link rel="stylesheet" type="text/css" href="stylesheet_3217.css" />
  12.     <part>
  13.         <id>9</id>
  14.         <type>field</type>
  15.         <visible> <true /> </visible>
  16.         <dontWrap> <false /> </dontWrap>
  17.         <dontSearch> <false /> </dontSearch>
  18.         <sharedText> <false /> </sharedText>
  19.         <fixedLineHeight> <true /> </fixedLineHeight>
  20.         <autoTab> <false /> </autoTab>
  21.         <lockText> <true /> </lockText>
  22.         <rect>
  23.             <left>4</left>
  24.             <top>94</top>
  25.             <right>228</right>
  26.             <bottom>304</bottom>
  27.         </rect>
  28.         <style>scrolling</style>
  29.         <autoSelect> <false /> </autoSelect>
  30.         <showLines> <false /> </showLines>
  31.         <wideMargins> <false /> </wideMargins>
  32.         <multipleLines> <false /> </multipleLines>
  33.         <reservedFamily> 0 </reservedFamily>
  34.         <titleWidth>0</titleWidth>
  35.         <icon>0</icon>
  36.         <textAlign>left</textAlign>
  37.         <font>Helvetica</font>
  38.         <textSize>12</textSize>
  39.         <textStyle>plain</textStyle>
  40.         <textHeight>16</textHeight>
  41.         <name></name>
  42.         <script></script>
  43.     </part>
  44.     <part>
  45.         <id>16</id>
  46.         <type>button</type>
  47.         <visible> <true /> </visible>
  48.         <reserved5> 0 </reserved5>
  49.         <reserved4> 0 </reserved4>
  50.         <reserved3> 0 </reserved3>
  51.         <reserved2> 0 </reserved2>
  52.         <reserved1> 0 </reserved1>
  53.         <enabled> <true /> </enabled>
  54.         <rect>
  55.             <left>4</left>
  56.             <top>65</top>
  57.             <right>104</right>
  58.             <bottom>87</bottom>
  59.         </rect>
  60.         <style>rectangle</style>
  61.         <showName> <true /> </showName>
  62.         <highlight> <false /> </highlight>
  63.         <autoHighlight> <true /> </autoHighlight>
  64.         <sharedHighlight> <true /> </sharedHighlight>
  65.         <family>0</family>
  66.         <titleWidth>0</titleWidth>
  67.         <icon>0</icon>
  68.         <textAlign>center</textAlign>
  69.         <font>Chicago</font>
  70.         <textSize>12</textSize>
  71.         <textStyle>plain</textStyle>
  72.         <name>GetTYPE</name>
  73.         <script>on mouseUpput getpathname() into appnameif appname = "" then exit to hypercardget gettype(appname)if the number of chars of it = 4 thenanswer "The TYPE of ‚Äú" & appname & "‚Äù is" && it & "."elseanswer it with "Sorry"end ifend mouseUp</script>
  74.     </part>
  75.     <part>
  76.         <id>17</id>
  77.         <type>button</type>
  78.         <visible> <true /> </visible>
  79.         <reserved5> 0 </reserved5>
  80.         <reserved4> 0 </reserved4>
  81.         <reserved3> 0 </reserved3>
  82.         <reserved2> 0 </reserved2>
  83.         <reserved1> 0 </reserved1>
  84.         <enabled> <true /> </enabled>
  85.         <rect>
  86.             <left>128</left>
  87.             <top>65</top>
  88.             <right>228</right>
  89.             <bottom>87</bottom>
  90.         </rect>
  91.         <style>rectangle</style>
  92.         <showName> <true /> </showName>
  93.         <highlight> <false /> </highlight>
  94.         <autoHighlight> <true /> </autoHighlight>
  95.         <sharedHighlight> <true /> </sharedHighlight>
  96.         <family>0</family>
  97.         <titleWidth>0</titleWidth>
  98.         <icon>0</icon>
  99.         <textAlign>center</textAlign>
  100.         <font>Chicago</font>
  101.         <textSize>12</textSize>
  102.         <textStyle>plain</textStyle>
  103.         <name>SetTYPE</name>
  104.         <script>on mouseUpput getpathname() into appnameif appname = "" then exit to hypercardask "Change TYPE to what?" with gettype(appname)if it = "" then exit mouseupsettype appname,itif the result ‚↠"" then answer the result with "Sorry"end mouseUp</script>
  105.     </part>
  106.     <content>
  107.         <layer>card</layer>
  108.         <id>9</id>
  109.         <text><span class="style1">etTYPE takes one parameter, the pathname of the file you want to examine. SetTYPE takes two parameters, the pathname of the file and the 4 letter TYPE to use. Click on and/or examine the scripts of the buttons above to see how it works!A small shareware fee of $5.00 is requested if you use these externals in any ‚Äúin house‚Äù, shareware or freeware products. The registration fee for development and prototyping of a future commercial product is $10.  The registration fee for unlimited commercial use in a SINGLE ‚Äúfor sale‚Äù product is $15.  The fee for unlimited commercial use with MULTIPLE products is $25.   These are life-time registrations.  You are entitled to all future shareware updates without further cost.For additional information you can contact us in any of the following ways:</span><span class="style2">America Online:  ProX JeffGEnie:           APOSTASYCompuserve:      76675,1772AppleLink:       ALL.AMERICAN</span><span class="style3">All-American Software Development Corp.P. O. Box 50635Minneapolis MN  55405-0635</span></text>
  110.     </content>
  111.     <name></name>
  112.     <script></script>
  113. </card>
  114.  
  115.  
  116.